﻿Imports cp_negocio
Public Class frm_pasaje
    'Creo obj tipo cliente
    Public cli As cliente
    'Creo obj tipo negocio'
    Public n As New negocio
    Private Sub frm_pasajes_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'Centrado del box_central - pasajes
        box_central.Location = New Point((Me.Width \ 2) - (box_central.Width \ 2), (Me.Height \ 2) - (box_central.Height - 390))
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btn_cargar.Click
        Dim popUp As frm_cliente = New frm_cliente()
        'Cargo clientes para la operacion'
        If popUp.ShowDialog() = DialogResult.OK Then
            Me.cli = popUp.cli
            If String.IsNullOrEmpty(txt_cliente1.Text) Then
                Me.txt_cliente1.Text = popUp.cli.dni + " " + popUp.cli.nombre + " " + popUp.cli.apellido + " " + popUp.cli.email
            ElseIf String.IsNullOrEmpty(txt_cliente2.Text) Then
                Me.txt_cliente2.Text = popUp.cli.dni + " " + popUp.cli.nombre + " " + popUp.cli.apellido + " " + popUp.cli.email
            ElseIf String.IsNullOrEmpty(txt_cliente3.Text) Then
                Me.txt_cliente3.Text = popUp.cli.dni + " " + popUp.cli.nombre + " " + popUp.cli.apellido + " " + popUp.cli.email
            ElseIf String.IsNullOrEmpty(txt_cliente4.Text) Then
                Me.txt_cliente4.Text = popUp.cli.dni + " " + popUp.cli.nombre + " " + popUp.cli.apellido + " " + popUp.cli.email
            End If
        End If
    End Sub
    'Busco disponibilidad a partir de la fecha de salida desde un origen hacia un destino por medio del transporte indicado.
    'la fecha vuelta no tiene tanta importancia en la toma de decision del pasaje ya que el vendedor lo puedo conversar con el cliente
    Private Sub btn_disponibilidad_Click(sender As Object, e As EventArgs) Handles btn_disponibilidad.Click
        'Defino un flag para el tipo de transporte - FIXME:solo funciona para una seleccion
        Dim ft As String = ""
        Dim chiquito As String = ""

        'Agregar Enum
        If chk_bus.Checked = True Then
            chiquito += "3, "
        End If
        If chk_tren.Checked = True Then
            chiquito += "2, "
        End If
        If chk_avion.Checked = True Then
            chiquito += "1, "
        End If
        If chk_crucero.Checked = True Then
            chiquito += "4, "
        End If

        If Not chiquito = "" Then
            ft = String.Format(" AND rut_tipotransporte IN ({0}) ", chiquito.Substring(0, chiquito.Length - 2))
        End If

            'Cargo disponibilidad - 1:ABIERTO / 2:COMPLETO
            DataGridView_disp.DataSource = n.disponibiliadPasajes(txt_origen.Text, txt_destino.Text, ft, txt_fechaida.Text)
            Dim column As DataGridViewColumn = DataGridView_disp.Columns(0)
            column.Width = 127
    End Sub
End Class